home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Languages / MS Fortran 5.1 / DISK6 / MULF.FO$ / MULF.bin
Encoding:
Text File  |  1991-04-05  |  208 b   |  12 lines
  1. C MULF.FOR
  2.  
  3.       SUBROUTINE MUL(Num1 [VALUE], Num2 [VALUE])
  4.       INTEGER*4 Num1, Num2
  5.       INTEGER*4 Result
  6.  
  7.       Result = Num1 * Num2
  8.  
  9.       CALL PRINTRESULTS( Num1, Num2, Result )
  10.  
  11.       END
  12.